home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 2510.ZIP / TRSOURCE.EXE / TSTOM.C < prev    next >
C/C++ Source or Header  |  1990-10-22  |  890b  |  38 lines
  1. /*********
  2. *  TSTOM 
  3. *  by Tom Rettig
  4. * Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. *  Syntax: TSTOM( <expC> )
  7. *  Return: Numeric minutes from <expC> time string.
  8. *          Zero if invalid time string format.
  9. *********/
  10.  
  11. #include "trlib.h"
  12.  
  13. TRTYPE tstom()
  14. {
  15.    char *instr;
  16.    double ret;
  17.    if ( PCOUNT == 1 && ISCHAR(1) )
  18.    {
  19.       instr = _parc(1);
  20.       if ( VALIDTIME(instr) )
  21.       {
  22.          ret = (double) 
  23.                ( (ADTOL(instr[HOURS])*36000) +
  24.                  (ADTOL(instr[HOUR ])* 3600) +
  25.                  (ADTOL(instr[MINS ])*  600) +
  26.                  (ADTOL(instr[MIN  ])*   60) +
  27.                  (ADTOL(instr[SECS ])*   10) +
  28.                   ADTOL(instr[SEC  ])        ) / 60;
  29.          _retnd( ret );
  30.       }
  31.       else
  32.          _retnd( (double)ERROR );
  33.    }
  34.    else
  35.       _retnd( (double)ERROR );
  36. }
  37.  
  38.